home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 8
/
Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso
/
Aminet
/
dev
/
debug
/
Disectv18b.lha
/
Disect.Install
< prev
next >
Wrap
Text File
|
1995-08-15
|
2KB
|
64 lines
; $VER: 0.3a Disect Installation script written by Bill Westhead
; Netmail 2:250/320.20 for more information
(set FALSE 0)
(set TRUE 1)
(set @default-dest "SYS:")
(set DISECT-FILE "DisectDemo.exe")
(set DISECT-VERS-FILE "Disectv1.8")
(procedure Destination
(message "\nDisect HD installation script by Bill Westhead.\n\n"
"You are about to install the latest version of "
"Disect to your hard disk.\n\n"
"If you encounter any bugs, or have any suggestions, "
"please send mail to one of the addresses below :-\n\n"
"Internet : bill@twilite.demon.co.uk\n"
"Fidonet : 2:250/320.20\n")
(set DMA_dest
(tackon
(askdir
(prompt "Where would you like to install Disect. (A drawer named Disect will be created there.)")
(help @copylib-help)
(default @default-dest)
)"Disect")
)
(set @default-dest DMA_dest)
(makedir DMA_dest (infos) )
(makeassign "Disect" DMA_dest)
(makedir "Disect:Document" (infos) )
(makedir "Disect:Prefs" (infos) )
(makedir "Disect:SysSymbol" (infos) )
(makedir "Disect:Tutorial" (infos) )
)
(Destination)
(complete 19)
(copyfiles (source DISECT-FILE) (dest "Disect:") )
(complete 60)
(copyfiles (source DISECT-VERS-FILE) (dest "Disect:") (infos))
(copyfiles (source "Grabmem") (dest "Disect:") (infos))
(copyfiles (source "AllocMultiBin") (dest "Disect:") (infos))
(copyfiles (source "Document/") (pattern "#?") (dest "Disect:Document/") (infos))
(copyfiles (source "Prefs/") (pattern "#?") (dest "Disect:Prefs/") (infos))
(copyfiles (source "SysSymbol/") (pattern "#?") (dest "Disect:SysSymbol/") (infos))
(copyfiles (source "Tutorial/") (pattern "#?") (dest "Disect:Tutorial/") (infos))
(complete 95)
(startup "Disect_Beta"
(prompt "An assign will be added to your \"s:user-startup script.\"\n")
(help @startup-help)
(command "assign Disect: \""DMA_dest"\" \n")
)
(complete 100)
(exit "Disect *Beta* Version Installation Script written \nby\n\nBill Westhead."
"\n\nScript version 0.3a 16th August 1995")